00050	<*****FUNCTIONS ON ** VF.DAT **
00200	VARIABLE /Z,X,Y,/DIS,/SQDIS,/R,
00300	/AA,/BB,/CC,/DD,/EE,/FF,/GG,/HH;
00400	SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;REVINIT←1;R←0;
00500	VARIABLE /DIS,/SQDIS,/R;
00600	COMPILE;
00700	INSTRUMENT VLN1;
00800	OSCIL[10](MAG,10*(MAG/P2),P20);
00900	OSCIL(U1,P18*MAG,F8);AA←U2*P16;
01000	INTRP(P6*P5*P23*MAG,P7*P5*P23*MAG,P21);
01100	OSCIL(U3+P17*U3*(U2/MAG),P5*P23*MAG+P5*P23*AA,F8);
01200	ZOSCIL(P4,MAG/P2,P20);
01300	ZOSCIL(U5*P19,U4+P3*P23*MAG+P3*P23*AA,F8);
01400	ZOSCIL(U5*(1.0-P19),U4+P3*P23*MAG*P8+P3*P23*P8*AA,F8);
01600	DIS←(U6+U7)*P9;
01700	SQDIS←(U6+U7)*P10*P15;
01800	OUTA←OUTA+DIS*P11;
01900	OUTB←OUTB+DIS*P12;
02000	OUTC←OUTC+DIS*P13;
02100	OUTD←OUTD+DIS*P14;
02200	R←R+SQDIS;
02300	END;
02400	INSTRUMENT VLN2;
02500	OSCIL[10](MAG,10*(MAG/P2),P20);
02600	OSCIL(U1,P18*MAG,F8);BB←U2*P16;
02700	INTRP(P6*P5*P23*MAG,P7*P5*P23*MAG,P21);
02800	OSCIL(U3+P17*U3*(U2/MAG),P5*P23*MAG+P5*P23*BB,F8);
02900	ZOSCIL(P4,MAG/P2,P20);
03000	ZOSCIL(U5*P19,U4+P3*P23*MAG+P3*P23*BB,F8);
03100	ZOSCIL(U5*(1.0-P19),U4+P3*P23*MAG*P8+P3*P23*P8*BB,F8);
03300	DIS←(U6+U7)*P9;
03400	SQDIS←(U6+U7)*P10*P15;
03500	OUTA←OUTA+DIS*P11;
03600	OUTB←OUTB+DIS*P12;
03700	OUTC←OUTC+DIS*P13;
03800	OUTD←OUTD+DIS*P14;
03900	R←R+SQDIS;
04000	END;
04100	INSTRUMENT VLN3;
04200	OSCIL[10](MAG,10*(MAG/P2),P20);
04300	OSCIL(U1,P18*MAG,F8);CC←U2*P16;
04400	INTRP(P6*P5*P23*MAG,P7*P5*P23*MAG,P21);
04500	OSCIL(U3+P17*U3*(U2/MAG),P5*P23*MAG+P5*P23*CC,F8);
04600	ZOSCIL(P4,MAG/P2,P20);
04700	ZOSCIL(U5*P19,U4+P3*P23*MAG+P3*P23*CC,F8);
04800	ZOSCIL(U5*(1.0-P19),U4+P3*P23*MAG*P8+P3*P23*P8*CC,F8);
05000	DIS←(U6+U7)*P9;
05100	SQDIS←(U6+U7)*P10*P15;
05200	OUTA←OUTA+DIS*P11;
05300	OUTB←OUTB+DIS*P12;
05400	OUTC←OUTC+DIS*P13;
05500	OUTD←OUTD+DIS*P14;
05600	R←R+SQDIS;
05700	END;
05800	INSTRUMENT VLN4;
05900	OSCIL[10](MAG,10*(MAG/P2),P20);
06000	OSCIL(U1,P18*MAG,F8);DD←U2*P16;
06100	INTRP(P6*P5*P23*MAG,P7*P5*P23*MAG,P21);
06200	OSCIL(U3+P17*U3*(U2/MAG),P5*P23*MAG+P5*P23*DD,F8);
06300	ZOSCIL(P4,MAG/P2,P20);
06400	ZOSCIL(U5*P19,U4+P3*P23*MAG+P3*P23*DD,F8);
06500	ZOSCIL(U5*(1.0-P19),U4+P3*P23*MAG*P8+P3*P23*P8*DD,F8);
06700	DIS←(U6+U7)*P9;
06800	SQDIS←(U6+U7)*P10*P15;
06900	OUTA←OUTA+DIS*P11;
07000	OUTB←OUTB+DIS*P12;
07100	OUTC←OUTC+DIS*P13;
07200	OUTD←OUTD+DIS*P14;
07300	R←R+SQDIS;
07400	END;
07500	INSTRUMENT VLN5;
07600	OSCIL[10](MAG,10*(MAG/P2),P20);
07700	OSCIL(U1,P18*MAG,F8);EE←U2*P16;
07800	INTRP(P6*P5*P23*MAG,P7*P5*P23*MAG,P21);
07900	OSCIL(U3+P17*U3*(U2/MAG),P5*P23*MAG+P5*P23*EE,F8);
08000	ZOSCIL(P4,MAG/P2,P20);
08100	ZOSCIL(U5*P19,U4+P3*P23*MAG+P3*P23*EE,F8);
08200	ZOSCIL(U5*(1.0-P19),U4+P3*P23*MAG*P8+P3*P23*P8*EE,F8);
08400	DIS←(U6+U7)*P9;
08500	SQDIS←(U6+U7)*P10*P15;
08600	OUTA←OUTA+DIS*P11;
08700	OUTB←OUTB+DIS*P12;
08800	OUTC←OUTC+DIS*P13;
08900	OUTD←OUTD+DIS*P14;
09000	R←R+SQDIS;
09100	END;
09200	INSTRUMENT VLN6;
09300	OSCIL[10](MAG,10*(MAG/P2),P20);
09400	OSCIL(U1,P18*MAG,F8);FF←U2*P16;
09500	INTRP(P6*P5*P23*MAG,P7*P5*P23*MAG,P21);
09600	OSCIL(U3+P17*U3*(U2/MAG),P5*P23*MAG+P5*P23*FF,F8);
09700	ZOSCIL(P4,MAG/P2,P20);
09800	ZOSCIL(U5*P19,U4+P3*P23*MAG+P3*P23*FF,F8);
09900	ZOSCIL(U5*(1.0-P19),U4+P3*P23*MAG*P8+P3*P23*P8*FF,F8);
10100	DIS←(U6+U7)*P9;
10200	SQDIS←(U6+U7)*P10*P15;
10300	OUTA←OUTA+DIS*P11;
10400	OUTB←OUTB+DIS*P12;
10500	OUTC←OUTC+DIS*P13;
10600	OUTD←OUTD+DIS*P14;
10700	R←R+SQDIS;
10800	END;
10900	FINISH;